COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(72),MM(5)
C00004 ENDMK
C⊗;
	DIMENSION I(72),MM(5)
C XXX XXXX
	TYPE 1
4	ACCEPT 2,I
1	FORMAT(' TYPE '/)
2	FORMAT(72A1)
3	FORMAT(1X10A5)
	CALL LO2UP(I)
	CALL STUF4(I,J)
	TYPE 3,J
	GO TO 4
	END

	SUBROUTINE LO2UP(I)
	DIMENSION I(1)
	DATA LA/"605004020100/,LZ/"751004020100/,MAG/"200000000000/
	DO 1 K=1,72
	NN=I(K)
1	IF(NN.GE.LA.AND.NN.LE.LZ)I(K)=NN-MAG
C ABOVE CHANGES LOWER CASE LETTERS TO UPPER.
	END

	SUBROUTINE STUF4(I,J)
	DIMENSION I(1),MM(5)
	M=1
	L=0
  	DO 5  K=1,72
	NN=I(K)
	IF(L.NE.0)GO TO 9
	IF(NN.EQ.' ')GO TO 5
C IGNORE LEADING BLANKS
9	L=L+1
	IF(L.EQ.6)GO TO 6
	MM(L)=I(K)
	IF(NN.NE.'.'.AND.NN.NE.' '.AND.NN.NE.';')GO TO 5
6	CALL STUFIT(J,MM,L-1)
	RETURN
5	CONTINUE
	END